home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1123copy.txt < prev    next >
Encoding:
Text File  |  1996-03-06  |  1.3 KB  |  36 lines
  1. if newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. title number = "1123"
  4. Company = "Access Software"
  5. title = "The Pandora Directive"
  6. Price = 0
  7. Demo false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. Title Description = " What really happened at Roswell, New Mexico in 1947? Unravel the conspiracy behind a mysterious package, a serial killer and a government cover-up to discover a terrible secret in the most playable interactive movie to date. Follow any of three paths leading to seven different endings. -- COMING SOON."
  13. -------------------------------------
  14. dline = ""
  15. counter = 0
  16. repeat while dline <> title number
  17. counter = counter + 1
  18. dline = GetWord(1,   GetLine(titl,counter) )   
  19. test(dline = title number, LineInTitle = counter)
  20. end repeat 
  21. starttitle = LineInTitle
  22. num of titles shown = 6
  23. endtitle = starttitle + num of titles shown - 1
  24. titles = ""
  25. title highlight = ""
  26. repeat with counter = starttitle to endtitle
  27. nextline = GetLine(titl,counter)
  28. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  29. title highlight = Test(title number = GetWord(1, nextline), title highlight ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return, title highlight ^ Return)
  30. end repeat
  31. dpage = CurrentPageID
  32.  
  33. newtitle = FALSE
  34. end if
  35.  
  36.